home *** CD-ROM | disk | FTP | other *** search
/ A Virtual Reality Guide to Texas / CD.iso / texdata / vrxtra.cst / 00013_Open Movie.ls < prev    next >
Encoding:
Text File  |  1998-06-17  |  829 b   |  26 lines
  1. on mouseUp
  2.   global gQTVRInstanceXtra
  3.   -- added JHB
  4.   global gVRMovieNameViaXtra
  5.   
  6.   -- parameters: file (w/ path), sprite for location & size, show on open or not
  7.   OpenMovieXtra gVRMovieNameViaXtra, 1, "visible"
  8.   
  9.   if IsQTVRMovie(gQTVRInstanceXtra) then
  10.     if QTVRGetQTVRType(gQTVRInstanceXtra) = "QTVRPanorama" then
  11.       go to frame "Pano"
  12.       
  13.       --put QTVRGetNodeID(gQTVRInstanceXtra) into member "Current Node ID"
  14.       put QTVRGetNodeID(gQTVRInstanceXtra)
  15.       --put QTVRGetWarpMode(gQTVRInstanceXtra) into member "warpmode"
  16.     else
  17.       go to frame "Object"
  18.       QTVRUpdate(gQTVRInstanceXtra)
  19.     end if
  20.   else
  21.     go to frame "Start"
  22.     updateStage
  23.     alert "Can't open file:" & return & return & quote & the text of member "Movie Filename" ┬¼
  24. & quote & return & return & "as a QTVR movie."
  25.   end if
  26. end